﻿Public Class frmMemo

    Private Sub frmCalendar_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'With dgvWeek
        '.Columns.Add("Mon", "Monday")
        '.Columns.Add("Tue", "Tuesday")
        ' For i = 0 To 20
        '.Rows.Add()
        '.Rows(i).Height = 30
        'Next
        'End With
    End Sub
End Class
